inherited crdOperation: TcrdOperation
  Left = 455
  Top = 327
  VertScrollBar.Range = 0
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
  ClientHeight = 385
  ClientWidth = 482
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 358
    Width = 482
    inherited BitBtn1: TBitBtn
      Left = 283
    end
    inherited BitBtn2: TBitBtn
      Left = 385
    end
  end
  inherited ToolBar1: TToolBar
    Width = 482
  end
  object gbAbonent: TGroupBox [2]
    Left = 0
    Top = 29
    Width = 482
    Height = 72
    Align = alTop
    Caption = ' '#1040#1073#1086#1085#1077#1085#1090' '
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 19
      Width = 70
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #8470' '#1083#1080#1094'. '#1089#1095#1077#1090#1072
    end
    object Label2: TLabel
      Left = 211
      Top = 19
      Width = 70
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1060#1048#1054
    end
    object Label3: TLabel
      Left = 8
      Top = 43
      Width = 70
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1040#1076#1088#1077#1089
    end
    object dbeNLS: TDBEditEh
      Left = 83
      Top = 16
      Width = 121
      Height = 19
      TabStop = False
      AlwaysShowBorder = True
      Color = clInactiveCaptionText
      DataField = 'G_LICSCHET'
      DataSource = dsc_Operation
      EditButtons = <>
      Flat = True
      ReadOnly = True
      TabOrder = 0
      Visible = True
    end
    object dbeName: TDBEditEh
      Left = 288
      Top = 16
      Width = 185
      Height = 19
      TabStop = False
      AlwaysShowBorder = True
      Color = clInactiveCaptionText
      DataField = 'NAME'
      DataSource = dsc_Operation
      EditButtons = <>
      Flat = True
      ReadOnly = True
      TabOrder = 1
      Visible = True
    end
    object dbeAddress: TDBEditEh
      Left = 83
      Top = 40
      Width = 390
      Height = 19
      TabStop = False
      AlwaysShowBorder = True
      Color = clInactiveCaptionText
      DataField = 'ADDRESS'
      DataSource = dsc_Operation
      EditButtons = <>
      Flat = True
      ReadOnly = True
      TabOrder = 2
      Visible = True
    end
  end
  object Panel2: TPanel [3]
    Left = 0
    Top = 101
    Width = 482
    Height = 257
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object PageControl: TPageControl
      Left = 0
      Top = 0
      Width = 482
      Height = 257
      ActivePage = MainSheet
      Align = alClient
      MultiLine = True
      TabOrder = 0
      OnChange = PageControlChange
      object MainSheet: TTabSheet
        Caption = #1054#1089#1085#1086#1074#1085#1099#1077' '#1089#1074#1086#1081#1089#1090#1074#1072
        object Label7: TLabel
          Left = 12
          Top = 6
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1059#1089#1083#1091#1075#1072
        end
        object Label8: TLabel
          Left = 12
          Top = 30
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1058#1080#1087' '#1086#1087#1077#1088#1072#1094#1080#1080
        end
        object Label9: TLabel
          Left = 236
          Top = 164
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1057#1091#1084#1084#1072
        end
        object Label10: TLabel
          Left = 12
          Top = 78
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1055#1077#1088#1080#1086#1076' '#1086#1087#1077#1088#1072#1094#1080#1080
        end
        object Label12: TLabel
          Left = 12
          Top = 102
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
        end
        object Label15: TLabel
          Left = 10
          Top = 164
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1041#1072#1079#1086#1074#1072#1103' '#1089#1091#1084#1084#1072
        end
        object Label17: TLabel
          Left = 236
          Top = 188
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1057#1091#1084#1084#1072' '#1083#1100#1075#1086#1090
        end
        object Label4: TLabel
          Left = 0
          Top = 184
          Width = 100
          Height = 32
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1041#1072#1079#1086#1074#1072#1103' '#1089#1091#1084#1084#1072' '#1087#1086' '#1074#1090#1086#1088#1086#1084#1091' '#1090#1072#1088#1080#1092#1091
          WordWrap = True
        end
        object Label21: TLabel
          Left = 236
          Top = 138
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1077#1076'. '#1091#1089#1083#1091#1075#1080
        end
        object Label5: TLabel
          Left = 12
          Top = 54
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1055#1088#1080#1085#1103#1090#1086' '#1072#1075#1077#1085#1090#1086#1084
        end
        object dbdteBDate: TDBDateTimeEditEh
          Left = 112
          Top = 75
          Width = 96
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'BDATE'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          Kind = dtkDateEh
          ReadOnly = True
          TabOrder = 0
          Visible = True
        end
        object dbdteEDate: TDBDateTimeEditEh
          Left = 220
          Top = 75
          Width = 96
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'EDATE'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          Kind = dtkDateEh
          ReadOnly = True
          TabOrder = 1
          Visible = True
        end
        object dbdteDocDate: TDBDateTimeEditEh
          Left = 112
          Top = 99
          Width = 96
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'DOCDATE'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          Kind = dtkDateEh
          ReadOnly = True
          TabOrder = 2
          Visible = True
        end
        object lcbOperType: TDBLookupComboboxEh
          Left = 112
          Top = 27
          Width = 321
          Height = 19
          TabStop = False
          Alignment = taLeftJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'P_TYPE'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          KeyField = 'CODE'
          ListField = 'PAY_NAME'
          ListSource = dsc_OperTypes
          ReadOnly = True
          TabOrder = 3
          Visible = True
        end
        object dbeService: TDBEditEh
          Left = 112
          Top = 3
          Width = 321
          Height = 19
          TabStop = False
          Alignment = taLeftJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'SERVICE'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 4
          Visible = True
        end
        object dbeSumma: TDBEditEh
          Left = 337
          Top = 161
          Width = 96
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'SUMMA'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 5
          Visible = True
        end
        object dbeSummAll: TDBEditEh
          Left = 111
          Top = 161
          Width = 96
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'SUMM_ALL'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 6
          Visible = True
        end
        object dbeSummExempts: TDBEditEh
          Left = 337
          Top = 185
          Width = 96
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'SUMM_EXEMPTS'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 7
          Visible = True
        end
        object dbeSummAllFull: TDBEditEh
          Left = 111
          Top = 185
          Width = 96
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'SUMM_BASE_FULL'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 8
          Visible = True
        end
        object dbePaidcount: TDBEditEh
          Left = 337
          Top = 136
          Width = 96
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'PAIDCOUNT'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 9
          Visible = True
        end
        object dbeAgent: TDBEditEh
          Left = 112
          Top = 51
          Width = 321
          Height = 19
          TabStop = False
          Alignment = taLeftJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'AGENT'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 10
          Visible = True
        end
      end
      object ExemptSheet: TTabSheet
        Caption = #1055#1088#1077#1076#1086#1089#1090#1072#1074#1083#1077#1085#1085#1099#1077' '#1083#1100#1075#1086#1090#1099
        ImageIndex = 1
        object dbgGivenExempts: TDBGridEh
          Left = 0
          Top = 0
          Width = 474
          Height = 229
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dsc_GivenExempts
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          RowDetailPanel.Color = clBtnFace
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          VTitleMargin = 5
          Columns = <
            item
              EditButtons = <>
              FieldName = 'NAME'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'EXEMPT'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'GIVENSUMMA'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'GIVENCOUNT'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'EXVAL'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'CNAME'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'BDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'EDATE'
              Footers = <>
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
      end
      object OtherSheet: TTabSheet
        Caption = #1055#1088#1086#1095#1077#1077
        ImageIndex = 3
        object Splitter: TSplitter
          Left = 0
          Top = 112
          Width = 474
          Height = 5
          Cursor = crVSplit
          Align = alTop
          Beveled = True
          MinSize = 90
        end
        object gbIncomplete: TGroupBox
          Left = 0
          Top = 0
          Width = 474
          Height = 112
          Align = alTop
          Caption = ' '#1053#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1072' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          object dbgIncomplete: TDBGridEh
            Left = 2
            Top = 15
            Width = 470
            Height = 95
            Align = alClient
            DataGrouping.GroupLevels = <>
            DataSource = dsc_Incomplete
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = [fsBold]
            Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
            ParentFont = False
            ReadOnly = True
            RowDetailPanel.Color = clBtnFace
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            VTitleMargin = 5
            Columns = <
              item
                EditButtons = <>
                FieldName = 'BDATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'EDATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'IPERCENT'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SUPPLIER'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SUPPLIER_DEPT'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'SUMM_ALL'
                Footers = <>
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
        end
        object gbPotr: TGroupBox
          Left = 0
          Top = 117
          Width = 474
          Height = 112
          Align = alClient
          Caption = ' '#1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          object dbgPotr: TDBGridEh
            Left = 2
            Top = 15
            Width = 470
            Height = 95
            Align = alClient
            DataGrouping.GroupLevels = <>
            DataSource = dsc_Potr
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = [fsBold]
            Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize]
            ParentFont = False
            ReadOnly = True
            RowDetailPanel.Color = clBtnFace
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            UseMultiTitle = True
            VTitleMargin = 5
            Columns = <
              item
                EditButtons = <>
                FieldName = 'RPOTR'
                Footers = <>
                Width = 90
              end
              item
                EditButtons = <>
                FieldName = 'RNORM_FLAG'
                Footers = <>
                Width = 70
              end
              item
                EditButtons = <>
                FieldName = 'RACT_ID'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RACT_BDATE'
                Footers = <>
                Width = 87
              end
              item
                EditButtons = <>
                FieldName = 'RACT_EDATE'
                Footers = <>
              end
              item
                Checkboxes = True
                EditButtons = <>
                FieldName = 'RGROUP_ACT'
                Footers = <>
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
        end
      end
      object SystemSheet: TTabSheet
        Caption = #1057#1083#1091#1078#1077#1073#1085#1099#1077' '#1076#1072#1085#1085#1099#1077
        ImageIndex = 4
        object Label25: TLabel
          Left = 20
          Top = 7
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #8470' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
        end
        object Label26: TLabel
          Left = 20
          Top = 31
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1048#1044' '#1086#1087#1077#1088#1072#1094#1080#1080
        end
        object Label27: TLabel
          Left = 252
          Top = 31
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1048#1044' '#1076#1086#1075#1086#1074#1086#1088#1072
        end
        object Label28: TLabel
          Left = -4
          Top = 59
          Width = 114
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1057#1086#1079#1076#1072#1090#1077#1083#1100' '#1086#1087#1077#1088#1072#1094#1080#1080
        end
        object Label29: TLabel
          Left = 0
          Top = 83
          Width = 110
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1052#1086#1076#1080#1092#1080#1082#1072#1090#1086#1088
        end
        object Label30: TLabel
          Left = 252
          Top = 59
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
        end
        object Label31: TLabel
          Left = 252
          Top = 83
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
        end
        object Label32: TLabel
          Left = 252
          Top = 7
          Width = 90
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #8470' '#1088#1077#1077#1089#1090#1088#1072
        end
        object Label33: TLabel
          Left = 0
          Top = 107
          Width = 110
          Height = 13
          Alignment = taRightJustify
          AutoSize = False
          Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
        end
        object dbeDocnum: TDBEditEh
          Left = 116
          Top = 4
          Width = 121
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'DOCNO'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 3
          Visible = True
        end
        object dbeOperID: TDBEditEh
          Left = 116
          Top = 28
          Width = 121
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'ID'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 4
          Visible = True
        end
        object dbeDogovorID: TDBEditEh
          Left = 348
          Top = 28
          Width = 121
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'DOGOVOR_ID'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 5
          Visible = True
        end
        object dbeCreater: TDBEditEh
          Left = 116
          Top = 56
          Width = 121
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'CREATEUSER'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 6
          Visible = True
        end
        object dbeModifier: TDBEditEh
          Left = 116
          Top = 80
          Width = 121
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'MODIFYUSER'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          ReadOnly = True
          TabOrder = 7
          Visible = True
        end
        object dbdteCreateDate: TDBDateTimeEditEh
          Left = 348
          Top = 56
          Width = 121
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'CREATEDATE'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          Kind = dtkDateEh
          ReadOnly = True
          TabOrder = 8
          Visible = True
        end
        object dbdteModifyDate: TDBDateTimeEditEh
          Left = 348
          Top = 80
          Width = 121
          Height = 19
          TabStop = False
          Alignment = taRightJustify
          AlwaysShowBorder = True
          Color = clInactiveCaptionText
          DataField = 'MODIFYDATE'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          Kind = dtkDateEh
          ReadOnly = True
          TabOrder = 9
          Visible = True
        end
        object dbeReestr: TDBEditEh
          Left = 348
          Top = 4
          Width = 121
          Height = 19
          Alignment = taRightJustify
          AlwaysShowBorder = True
          DataField = 'REESTR'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          TabOrder = 0
          Visible = True
        end
        object dbeNote: TDBEditEh
          Left = 116
          Top = 104
          Width = 353
          Height = 19
          AlwaysShowBorder = True
          DataField = 'NOTE'
          DataSource = dsc_Operation
          EditButtons = <>
          Flat = True
          TabOrder = 1
          Visible = True
        end
        object dbcbOperCheck: TDBCheckBoxEh
          Left = 116
          Top = 128
          Width = 157
          Height = 17
          AlwaysShowBorder = True
          Caption = #1054#1087#1077#1088#1072#1094#1080#1103' '#1089#1074#1077#1088#1077#1085#1072
          DataField = 'CHECKED'
          DataSource = dsc_Operation
          Flat = True
          TabOrder = 2
          ValueChecked = '1'
          ValueUnchecked = '0'
        end
      end
    end
  end
  inherited ActionList1: TActionList
    Left = 88
    Top = 4
    inherited aSave: TAction
      Enabled = False
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
    inherited aPrint: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdOperation'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      
        'Panel2.PageControl.ExemptSheet.dbgGivenExempts.<P>.Columns.<ForA' +
        'llItems>.Width'
      'Panel2.PageControl.OtherSheet.gbIncomplete.<P>.Height'
      
        'Panel2.PageControl.OtherSheet.gbIncomplete.dbgIncomplete.<P>.Col' +
        'umns.<ForAllItems>.Width'
      
        'Panel2.PageControl.OtherSheet.gbPotr.dbgPotr.<P>.Columns.<ForAll' +
        'Items>.Width')
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 188
    Top = 4
  end
  object ds_Operation: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE PAYS'
      'SET '
      '    NOTE = :NOTE,'
      '    CHECKED = :CHECKED'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    RefreshSQL.Strings = (
      'SELECT'
      '    ADDRESS,'
      '    NAME,'
      '    G_LICSCHET,'
      '    SERVICE,'
      '    ID,'
      '    P_TYPE,'
      '    DOGOVOR_ID,'
      '    DOCDATE,'
      '    DOCNO,'
      '    BDATE,'
      '    EDATE,'
      '    SUMMA,'
      '    SUMM_ALL,'
      '    SUMM_BASE_FULL,'
      '    SUMM_EXEMPTS,'
      '    PAIDCOUNT,'
      '    CREATEUSER,'
      '    CREATEDATE,'
      '    MODIFYUSER,'
      '    MODIFYDATE,'
      '    REESTR,'
      '    NOTE,'
      '    CHECKED,'
      '    AGENT'
      'FROM'
      '    PROC_PAY_GET_PROPS(:POPER_ID) ')
    SelectSQL.Strings = (
      'SELECT'
      '    ADDRESS,'
      '    NAME,'
      '    G_LICSCHET,'
      '    SERVICE,'
      '    ID,'
      '    P_TYPE,'
      '    DOGOVOR_ID,'
      '    DOCDATE,'
      '    DOCNO,'
      '    BDATE,'
      '    EDATE,'
      '    SUMMA,'
      '    SUMM_ALL,'
      '    SUMM_BASE_FULL,'
      '    SUMM_EXEMPTS,'
      '    PAIDCOUNT,'
      '    CREATEUSER,'
      '    CREATEDATE,'
      '    MODIFYUSER,'
      '    MODIFYDATE,'
      '    REESTR,'
      '    NOTE,'
      '    CHECKED,'
      '    AGENT'
      'FROM'
      '    PROC_PAY_GET_PROPS(:POPER_ID) ')
    AfterOpen = ds_OperationAfterOpen
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    OnFieldChange = ds_OperationFieldChange
    Container = dsContainer
    Left = 224
    Top = 4
    poSQLINT64ToBCD = True
    object ds_OperationADDRESS: TFIBStringField
      FieldName = 'ADDRESS'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_OperationNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OperationG_LICSCHET: TFIBStringField
      FieldName = 'G_LICSCHET'
      EmptyStrToNull = True
    end
    object ds_OperationSERVICE: TFIBStringField
      FieldName = 'SERVICE'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OperationID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_OperationP_TYPE: TFIBIntegerField
      FieldName = 'P_TYPE'
    end
    object ds_OperationDOGOVOR_ID: TFIBIntegerField
      FieldName = 'DOGOVOR_ID'
    end
    object ds_OperationDOCDATE: TFIBDateField
      FieldName = 'DOCDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_OperationDOCNO: TFIBStringField
      FieldName = 'DOCNO'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_OperationBDATE: TFIBDateField
      FieldName = 'BDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_OperationEDATE: TFIBDateField
      FieldName = 'EDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_OperationSUMMA: TFIBBCDField
      FieldName = 'SUMMA'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_OperationSUMM_ALL: TFIBBCDField
      FieldName = 'SUMM_ALL'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_OperationSUMM_BASE_FULL: TFIBBCDField
      FieldName = 'SUMM_BASE_FULL'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_OperationSUMM_EXEMPTS: TFIBBCDField
      FieldName = 'SUMM_EXEMPTS'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_OperationCREATEUSER: TFIBStringField
      FieldName = 'CREATEUSER'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OperationCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_OperationMODIFYUSER: TFIBStringField
      FieldName = 'MODIFYUSER'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OperationMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_OperationNOTE: TFIBStringField
      FieldName = 'NOTE'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OperationCHECKED: TFIBSmallIntField
      FieldName = 'CHECKED'
    end
    object ds_OperationPAIDCOUNT: TFIBFloatField
      FieldName = 'PAIDCOUNT'
    end
    object ds_OperationAGENT: TFIBStringField
      FieldName = 'AGENT'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OperationREESTR: TFIBStringField
      FieldName = 'REESTR'
      EmptyStrToNull = True
    end
  end
  object dsc_Operation: TDataSource
    DataSet = ds_Operation
    Left = 260
    Top = 4
  end
  object ds_OperTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'select pt.code, pt.pay_name'
      '  from pay_types pt'
      '  order by 2')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 224
    Top = 36
    poSQLINT64ToBCD = True
    object ds_OperTypesCODE: TFIBIntegerField
      FieldName = 'CODE'
    end
    object ds_OperTypesPAY_NAME: TFIBStringField
      FieldName = 'PAY_NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_OperTypes: TDataSource
    DataSet = ds_OperTypes
    Left = 260
    Top = 36
  end
  object ds_MeterList: TpFIBDataSet
    SelectSQL.Strings = (
      'select m.id, m.meter_num||coalesce('#39'('#39'||m.name||'#39')'#39', '#39#39') meter'
      
        '  from meters m, proc_dogovor_get_meters (:pdogovor_id, :pdocdat' +
        'e, null, null) p'
      '  where m.id = p.rmeter_id')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 224
    Top = 68
    poSQLINT64ToBCD = True
    object ds_MeterListID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_MeterListMETER: TFIBStringField
      FieldName = 'METER'
      Size = 82
      EmptyStrToNull = True
    end
  end
  object dsc_MeterList: TDataSource
    DataSet = ds_MeterList
    Left = 260
    Top = 68
  end
  object ds_GivenExempts: TpFIBDataSet
    RefreshSQL.Strings = (
      'select c.name, et.name exempt, ge.givensumma, ge.givencount,'
      '       ge.chargesumma as exval, ge.bdate, ge.edate,'
      '       (select cn.name from clients cn'
      '          where cn.id = ge.client_id) as cname'
      
        '  from given_exempts ge, clientexempts ce, exempttypes et, clien' +
        'ts c'
      '  where et.id = ce.exempttypes_id'
      '    and ce.id = ge.clientexempt_id'
      '    and c.id = ce.client_id'
      '    and ge.pay_id = :poper_id')
    SelectSQL.Strings = (
      'select c.name, et.name exempt, ge.givensumma, ge.givencount,'
      '       ge.chargesumma as exval, ge.bdate, ge.edate,'
      '       (select cn.name from clients cn'
      '          where cn.id = ge.client_id) as cname'
      
        '  from given_exempts ge, clientexempts ce, exempttypes et, clien' +
        'ts c'
      '  where et.id = ce.exempttypes_id'
      '    and ce.id = ge.clientexempt_id'
      '    and c.id = ce.client_id'
      '    and ge.pay_id = :POPER_ID')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 224
    Top = 100
    poSQLINT64ToBCD = True
    object ds_GivenExemptsNAME: TFIBStringField
      DisplayLabel = #1060#1048#1054' '#1083#1100#1075#1086#1090#1085#1080#1082#1072
      DisplayWidth = 25
      FieldName = 'NAME'
      Size = 92
      EmptyStrToNull = True
    end
    object ds_GivenExemptsEXEMPT: TFIBStringField
      DisplayLabel = #1051#1100#1075#1086#1090#1072
      DisplayWidth = 20
      FieldName = 'EXEMPT'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_GivenExemptsGIVENSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      DisplayWidth = 8
      FieldName = 'GIVENSUMMA'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_GivenExemptsGIVENCOUNT: TFIBFloatField
      DisplayLabel = #1050#1086#1083'-'#1074#1086
      DisplayWidth = 8
      FieldName = 'GIVENCOUNT'
    end
    object ds_GivenExemptsEXVAL: TFIBBCDField
      DisplayLabel = #1044#1086#1083#1103' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1081
      DisplayWidth = 10
      FieldName = 'EXVAL'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_GivenExemptsCNAME: TFIBStringField
      DisplayLabel = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
      DisplayWidth = 25
      FieldName = 'CNAME'
      Size = 92
      EmptyStrToNull = True
    end
    object ds_GivenExemptsBDATE: TFIBDateField
      DisplayLabel = #1053#1072#1095#1072#1083#1086' '#1087#1077#1088#1080#1086#1076#1072
      DisplayWidth = 12
      FieldName = 'BDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_GivenExemptsEDATE: TFIBDateField
      DisplayLabel = #1054#1082#1086#1085#1095#1072#1085#1080#1077' '#1087#1077#1088#1080#1086#1076#1072
      DisplayWidth = 12
      FieldName = 'EDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
  end
  object dsc_GivenExempts: TDataSource
    DataSet = ds_GivenExempts
    Left = 260
    Top = 100
  end
  object ds_Incomplete: TpFIBDataSet
    SelectSQL.Strings = (
      'select dia.bdate, dia.edate, dia.ipercent,'
      '       (select v.name from v_supplier v'
      '          where v.id = dia.supplier_id) as supplier,'
      '       (select rd.name from rsupplier_deps rd'
      '          where rd.id = dia.supplier_dept) as supplier_dept,'
      '       (SELECT sum(RSUMMA) FROM'
      
        '         PROC_INCOMPLETE_GET_CHARGES(dia.id, did.DOGOVOR_ID)) as' +
        ' summ_all'
      '  from pays_to_dinc pdi'
      '  join d_inc2dogovors did on did.id = pdi.dinc_id'
      '  join d_incomplete_acts dia on dia.id = did.d_inc_act_id'
      '  where pdi.pay_id = :poper_id'
      '')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 224
    Top = 132
    poSQLINT64ToBCD = True
    object ds_IncompleteBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
      FieldName = 'BDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_IncompleteEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
      DisplayWidth = 12
      FieldName = 'EDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_IncompleteIPERCENT: TFIBBCDField
      DisplayLabel = #1055#1088#1086#1094#1077#1085#1090
      FieldName = 'IPERCENT'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_IncompleteSUPPLIER: TFIBStringField
      DisplayLabel = #1055#1086#1089#1090#1072#1074#1097#1080#1082
      DisplayWidth = 20
      FieldName = 'SUPPLIER'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_IncompleteSUPPLIER_DEPT: TFIBStringField
      DisplayLabel = #1059#1095#1072#1089#1090#1086#1082
      FieldName = 'SUPPLIER_DEPT'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_IncompleteSUMM_ALL: TFIBBCDField
      DisplayLabel = #1054#1073#1097#1072#1103' '#1089#1091#1084#1084#1072
      FieldName = 'SUMM_ALL'
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
  end
  object dsc_Incomplete: TDataSource
    DataSet = ds_Incomplete
    Left = 260
    Top = 132
  end
  object dsContainer: TDataSetsContainer
    Left = 188
    Top = 37
  end
  object ds_Potr: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RPOTR,'
      '    RNORM_FLAG,'
      '    RACT_ID,'
      '    RACT_BDATE,'
      '    RACT_EDATE,'
      '    RGROUP_ACT'
      'FROM'
      '    PROC_PAY_GET_POTR_DETAIL(:poper_id) ')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Container = dsContainer
    Left = 224
    Top = 164
    poSQLINT64ToBCD = True
    object ds_PotrRPOTR: TFIBFloatField
      DisplayLabel = #1055#1086#1090#1088#1077#1073#1083#1077#1085#1080#1077
      FieldName = 'RPOTR'
    end
    object ds_PotrRNORM_FLAG: TFIBSmallIntField
      DisplayLabel = #1055#1086#1088#1103#1076#1086#1082' '#1090#1072#1088#1080#1092#1072
      FieldName = 'RNORM_FLAG'
    end
    object ds_PotrRACT_ID: TFIBIntegerField
      DisplayLabel = #8470' '#1072#1082#1090#1072
      FieldName = 'RACT_ID'
    end
    object ds_PotrRACT_BDATE: TFIBDateField
      DisplayLabel = #1055#1077#1088#1080#1086#1076' '#1072#1082#1090#1072' '#1089
      FieldName = 'RACT_BDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_PotrRACT_EDATE: TFIBDateField
      DisplayLabel = #1087#1086
      FieldName = 'RACT_EDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_PotrRGROUP_ACT: TFIBSmallIntField
      DisplayLabel = #1054#1073#1097#1080#1081' '#1072#1082#1090
      FieldName = 'RGROUP_ACT'
    end
  end
  object dsc_Potr: TDataSource
    DataSet = ds_Potr
    Left = 260
    Top = 164
  end
end
